﻿Public Class PdaUtils
    Public Function getCurrentDate() As Decimal
        Dim rightNow As Date = Now
        Return Convert.ToDecimal(rightNow.ToString("yyyyMMdd"))
    End Function

    Public Function getCurrentTime() As Decimal
        Dim rightNow As Date = Now
        Return Convert.ToDecimal(rightNow.ToString("HHmmss"))
    End Function
End Class